home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Plugins / RecentScript.intui next >
Encoding:
Text File  |  1997-09-05  |  1.2 KB  |  53 lines
  1. /*****
  2.   $VER: RecentScript IntuiNews PlugIn 0.3 (30.8.97) ©Arndt van der Molen
  3.  
  4.  
  5.         RecentScript PlugIn for news/email reader IntuiNews.
  6.  
  7.   Starts the MUIRexx application 'RecentScript' with the
  8.   currently viewed article or all selected articles.
  9.  
  10.   Installation:
  11.  
  12.   Add following line(s) to 'ums.config'
  13.  
  14. ( IntuiNews.Rexx
  15.     "(Article|Message)Window  F9  MUIRexx:RecentScript/Plugins/RecentScript.intui\n"
  16. )
  17.  
  18.   whereas the function key number is the first unused in your
  19.   UMS configuration. Note: The maximum allowed number is 10.
  20.  
  21.   Known 'Bugs':
  22.    - At multiselection the first line (and therefore the first
  23.      archive) of all additional selections is added without a
  24.      newline and is not recognized by RecentScript.
  25.    - IntuiNews do not quit until RecentScript is quited
  26.    - Temporary file will not be deleted
  27. *****/
  28.  
  29. OPTIONS RESULTS
  30.  
  31. status
  32.  
  33. IF RESULT = "MESSAGE"
  34. THEN DO
  35.   getmsgnum
  36.   msgs = RESULT
  37. END
  38. ELSE
  39.  
  40.  IF RESULT = "ARTICLE"
  41.  THEN DO
  42.  
  43.    getselmsgnums
  44.    IF RESULT = "RESULT" THEN EXIT 5
  45.    msgs = RESULT
  46.  END
  47.  
  48. ELSE EXIT 5
  49.  
  50. 'savemsgbody' msgs 'TO T:RS.temp'
  51.  
  52. ADDRESS COMMAND 'MUIRexx:MUIRexx "MUIRexx:RecentScript/RecentScript.rexx T:RS.temp" PORT RECENTSCRIPT'
  53.